﻿Imports System.Data
Imports System
Imports System.Collections.Generic
Imports BLGestionProyecto.BLGPGastoRegistro
Partial Class Controls_wctlGastoRegistroListar
    Inherits System.Web.UI.UserControl
    Dim cBLGPGastoRegistro As New BLGestionProyecto.BLGPGastoRegistro

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.lblMensaje1.Text = ""
        If Not Page.IsPostBack Then
            Session("CODUSUARIO") = 8
            Try
                Session("codPersona") = 8
                Me.txtFechaInicial.Text = Now.Date
                Me.txtFechaFin.Text = Now.Date
                If Not Request.QueryString("RSP") = Nothing Then
                    lblMensaje1.Text = clsGPUtilidades.fuMensajeUsuario(Request.QueryString("RSP"))
                End If
                clsGPUtilidades.poCreateConfirmBox(btnAnular, clsGPEstructuras.enmMSGalUsuario.GPMSGSEGUROELIMREGISTRO)
            Catch ex As Exception
                lblMensaje1.Text = ex.Message
            End Try
        End If
    End Sub


    Protected Sub btnConsultar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConsultar.Click
        lblMensaje1.Text = ""
        Try
            Dim lDt As DataTable = cBLGPGastoRegistro.fuBLListarGastoRegistroxFechas(Session("codPersona"), CDate(txtFechaInicial.Text), CDate(txtFechaFin.Text))
            dgvListadoGastos.DataSource = lDt
            dgvListadoGastos.DataBind()
        Catch ex As Exception
            lblMensaje1.Text = ex.Message
        End Try
    End Sub

    Protected Sub btnNuevo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
        'If Not fuValidarDatosalSeleccionar(clsGPEstructuras.enmEstadoDocumentos.GPESTNUEVO) Then
        '    Exit Sub
        'End If
        'Dim lLst As List(Of Object) = dgvActividadesPendientes.GetSelectedFieldValues("paccodProyectoActividad")
        'Dim lipaccodProyectoActividad As Integer = lLst.Item(0).ToString
        'Session("paccodProyectoActividad") = lipaccodProyectoActividad
        Session("EDITAR1") = clsGPEstructuras.enmEstadoDocumentos.GPESTNUEVO
        Response.Redirect("wfrmGastoRegistro.aspx")
    End Sub

    Function fuValidarDatosalSeleccionar(ByVal penm As clsGPEstructuras.enmEstadoDocumentos) As Boolean
        Dim lbErr As Boolean
        Try
            lblMensaje1.Text = ""
            Select Case penm
                Case clsGPEstructuras.enmEstadoDocumentos.GPESTEDITAR
                    If dgvListadoGastos.GetSelectedFieldValues("gascodGasto").Count = 0 Then
                        lblMensaje1.Text &= "* Debe Seleccionar una Actividad de la Lista</BR>"
                        lbErr = True
                    End If
            End Select
            Return Not lbErr
        Catch ex As Exception
            lblMensaje1.Text = Err.Description
        End Try
    End Function

    Protected Sub btnEditar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEditar.Click
        If Not fuValidarDatosalSeleccionar(clsGPEstructuras.enmEstadoDocumentos.GPESTEDITAR) Then
            Exit Sub
        End If
        Dim lLst As List(Of Object) = dgvListadoGastos.GetSelectedFieldValues("gasGastoID")

        Dim liGasGastoID As String = lLst.Item(0).ToString

        Session("EDITAR1") = clsGPEstructuras.enmEstadoDocumentos.GPESTEDITAR
        Response.Redirect(String.Format("wfrmGastoRegistro.aspx?CODGAS={0}", liGasGastoID))
    End Sub

    Protected Sub btnAnular_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAnular.Click
        Dim lBLGPGastoRegistro As New BLGestionProyecto.BLGPGastoRegistro
        Dim lLst As List(Of Object) = dgvListadoGastos.GetSelectedFieldValues("gasGastoID")
        Dim liGasGastoID As String = lLst.Item(lLst.Count - 1).ToString

        If lBLGPGastoRegistro.fuBLEliminarGastoRegistro(liGasGastoID, Session("CODUSUARIO")) = False Then
            lblMensaje1.Text = clsGPUtilidades.fuMensajeUsuario(clsGPEstructuras.enmMSGalUsuario.GPMSGERRELIMINAR)
            Exit Sub
        End If
        lblMensaje1.Text = clsGPUtilidades.fuMensajeUsuario(clsGPEstructuras.enmMSGalUsuario.GPMSGELIMINACIONOK)
        btnConsultar_Click(Nothing, Nothing)
    End Sub
    Protected Sub btnRetornar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRetornar.Click
 
    End Sub
    Protected Sub cldFechaInicial_SelectionChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cldFechaInicial.SelectionChanged
        txtFechaInicial.Text = cldFechaInicial.SelectedDate.ToString("dd/MM/yyyy")
        cldFechaInicial.Visible = False
    End Sub

    Protected Sub imgbFechaInicial_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgbFechaInicial.Click
        If (cldFechaInicial.Visible = False) Then
            cldFechaInicial.Visible = True
        Else
            cldFechaInicial.Visible = False
        End If
    End Sub

    Protected Sub cldFechaFinal_SelectionChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cldFechaFinal.SelectionChanged
        txtFechaFin.Text = cldFechaFinal.SelectedDate.ToString("dd/MM/yyyy")
        cldFechaFinal.Visible = False
    End Sub

    Protected Sub imgbFechaFinal_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgbFechaFinal.Click
        If (cldFechaFinal.Visible = False) Then
            cldFechaFinal.Visible = True
        Else
            cldFechaFinal.Visible = False
        End If
    End Sub
End Class